This report visualized oil spill events across California in 2008, and then uses a choropleth map to show a count of inland spill events by county. According to the California Department of Fish and Game, Office of Spill Prevention and Response, the marine data comes from OSPR Oil Spill Prevention Specialists (OSPS) and the inland data is based on California Emergency Management Agency (Cal EMA) reports.
Data Citation: Oil Spill Incident Tracking [ds394] 2008 Edition. California Department of Fish and Game, Office of Spill Prevention and Response. TIGER/Line Shapefile, 2016, state, California, Current County Subdivision State-based. US Census Buereau Department of Commerce.
# read in the data
oil_spill_sf <- read_sf(dsn = here("_posts", "spatial_analysis", "Oil_Spill_Tracking", "Oil_Spill_Incident_Tracking_[ds394].shp")) %>%
clean_names() %>%
mutate(across(where(is.character), tolower))
cal_counties_sf <- read_sf(dsn = here("_posts", "spatial_analysis", "ca_counties", "CA_Counties_TIGER2016.shp")) %>%
clean_names()
#exploratory tmap
tmap_mode(mode = "view")
tm_basemap(c(StreetMap = "OpenStreetMap",
TopoMap = "OpenTopoMap")) +
tm_shape(cal_counties_sf) +
tm_polygons(alpha = 0) +
tm_shape(oil_spill_sf) +
tm_dots()